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USING THE DX980 OPERATING SYSTEM 
USER/OPERATOR GUIDE 


The JCL for all utilities in this manual follow each utility. 
The JCL is included so that the user can modify the utility's 


resources to accommodate his particular requirements. 


All operator responses are underlined throughout this supple- 
ment. It assumes the user/operator is using the ASR. If using a 
CRT, the user is to key in only the underlined portions of each 
command. 


a = carriage return. 


USING A CRT 


ITS 
The Interactive Terminal Subsystem (ITS) provides simplified 
concurrent communication between the DX980 system and a CRT 
or terminal. 

LOGON 
When communication is to be established between ITS and a 
terminal, the terminal user must enter a LOGON command to 
gain access to ITS facilities. The format of the LOGON 
command is as follows: 

LOGON <USERID> <ACCTNO> 
- USERID is an alpha numeric string, limited to 6 characters, 
the first of which must be alphabetic. 
- ACCTNO is a positive integer that must be less than 32,768. 
LOGON example: LOGON ANAME a) 

If the last CRT user did not LOGOFF, this gives an error 
message (invalid command). If so, the user should LOGOFF 
(see LOGOFF command), then LOGON. 
Any other special instructions for CRT users will be noted 
with the JOB being run. 

LOGOFF 


The LOGOFF command returns the terminal to the inactive state. 


ASMBLR (ASSEMBLE) 


The general assembler, SAPG, translates 980 symbolic assembly 
language into object language acceptable to the 980 computer. 
During pass 1, a symbol table is generated as the source 
program is read. Pass 2 generates the object output and 
program listing using both the source program and the gene- 
rated symbol table. For more details, see: Model 980 
Computer Assembly Language Programmer's Reference Manual, No. 
943013-9701. 


To use the utility ASMBLR: 


EXAMPLE: Source from disc file, object to card punch, listing 


to line printer: 
Hit <ESC)for //. 


KEY IN:  //JOB name SYSTEM. 
//RUN ASMBLR FSRC=(userid,filename) DOBJ=CP1. 


EXAMPLE: Source from cards, no object, listing to mag tape, 
(using mag tape drive 1; with write ring on mag 


tape). 


KEY IN: 
//JOB name SYSTEM. 
//RUN ASMBLR DIN=CR1 DOBJ=DUMMY DLST=MT1. 


ASMBLR (980 ASSEMBLER) JCL 


/REPLACE ASMBLR .ASSEMBLE. 
/EXEC OBJ=(1,SYSTEM,ASMBLR) MEM=(300,5000,1000) PRTY=(1,15); 

/ TIME=-1 TIME:=TIM | MEM:=MEM PRTY : PRI 

/ASSIGN 0 DUMMY DEVICE:=DMSG SHARE .SYSTEM MESSAGE 
/ASSIGN 4 DUMMY DEVICE:=DCON SHARE:=SCON . CONTROL/MESSAGE 
/ASSIGN 5 DISC1 DEVICE:=DSRC FILE:=FSRC BUFFERS=1 .SOURCE INPUT 
/ASSIGN 6 SYSOUT DEVICE:=DLST FILE:=FLST BUFFERS=1 .SOQURCE LIST/ERROR 
/ SHARE:=SLST MAXTRACK=100 

/ASSIGN 7 DISC1 DEVICE:=DOBJ FILE:=FOBJ REPLACE:=ROBJ; 

i ACCESS:=COBJ | NEW:=NOBJ ALLOCATE:=LOBJ ,OBJECT OUTPUT 

/ ACCESS= (ANY, ANY, ANY, ANY) LINKSEQ BUFFERS=1 

j ALLOCATE=(1,0,64,10) FILE=(USERO1, ASMOUT) 

/ASSIGN 16 DISC1 FILE=(TEMP,SCRL) NEW BUFFERS=1 LINKSEQ; 

/ ACCESS= (ANY, ANY, ANY, ANY) ALLOCATE= (5,300, 256,50) .SOURCE SCRATCH 


/ END 


ASMCND (ASSEMBLE WITH CONCORDANCE ) 


This utility is the same as ASMBLR except that a concor- 


dance is also generated. 


EXAMPLE: Source from disc file, object to card punch, and 


assembly listing to line printer. 
Hit <ES@) for //. 


KEY IN: 
//JOB name SYSTEM. 
//RUN ASMCND FSRC=(userid,filename) DOBJ=CP1. 


EXAMPLE : Source from cards, object to card punch, and 


assembly listing to line printer. 


KEY IN: 
//JOB name SYSTEM.) 
//RUN _ASMCND DIN=CR1 DOBJ=CP1 - 


ASMCND (980 ASSEMBLER WITH CONCORDANCE) JCL 


/REPLACE ASMCND 
/EXEC OBJ=(1,SYSTEM,ASMBLR) MEM=(300,5000,1000) PRTY=(1,15); 


j TIME=-1 TIME:=TIM | MEM:=MEM PRTY :=PRI 
/ASSIGN 0 DUMMY 

/ASSIGN 4 DUMMY DEVICE:=DCON SHARE:=SCON 

/ASSIGN 5 DISC1 DEVICE:=DSRC FILE:=FSRC BUFFERS=1 

/ASSIGN 6 SYSOUT DEVICE:=DLST FILE:=FLST BUFFERS=1 

j SHARE:=SLST MAXTRACK=100 

/ASSIGN 7 DISC1 DEVICE:=DOBJ FILE:=FOBJ REPLACE:=ROBJ; 

/ ACCESS:=COBJ  NEW:=NOBJ ALLOCATE :=LOBJ 

/ | ACCESS=(ANY,ANY,ANY,ANY) LINKSEQ BUFFERS=1 
/ | ALLOCATE=(1,0,64,10) FILE=(USERO1,ASMOUT) 
/ASSIGN 16 DISC1 FILE=(TEMP,SCRL) NEW BUFFERS=1 LINKSEQ; 

/ ACCESS= (ANY, ANY, ANY, ANY) ALLOCATE=(5, 300, 256,50) 
/EXEC OBJ=(1,SYSTEM,CONCRD) MEM=(3,15000,1000) PRTY=(1,15); 
/ TIME=-1 PRTY:=PRI 

/ASSIGN 16 DISC1 FILE=(TEMP,SCRL) BUFFERS=1. 
/ASSIGN 6 SYSOUT DEVICE:=DLST BUFFERS=1. 


/END. 


ASSEMBLE. 


SYSTEM MESSAGE 

. CONTROL/MESSAGE 
.SOURCE INPUT 
.SOURCE LIST/ERROR 


OBJECT OUTPUT 


. SOURCE SCRATCH 


ERROR CODES 


If an error is detected in Pass 1, the message appears 


before the listing. 


the message is printed adjacent to the source line in 


question. 


A total number of errors encountered in the 


assembly is given at the end of the listing. 


MESSAGE 
NUMBER 


10 


11 


12 


13 


14 


15 


| 16 


| 


i 
t 


i 


| 


| 
| 


FIELD SZ 


UNDF OP 


CAD > 10 


UNDF SYM 


MDF SYM 


RELOC 


SYM OVF 


BAD NUM 


IMP R/D 


X RF USE 


IXB ERR 
OPD ERR 


ADR MODE 


SAPG ERROR MESSAGES 


MESSAGE MEANING (AND CORRECTIVE ACTION) 


If the error is detected in Pass 2, 


Address beyond reach (use @ for extended format) 


codes) 

Symbol > 6 characters 

OPD or FRM multiply defined (rename label) 
FRM fields contain more than 16 bits 
Address expression > 10 elements 

Symbol not defined (label probably omitted) 


Symbol multiply defined (rename labels) 


arithmetic expression, or ORG statement can use 


only one relocatable label) 


Undefined operation code (check list of valid op 


Too many symbols have been defined (cut out symbols 


or divide program) 


Numeric element not valid (properly define item in 


label or address field) 


A REF or DEF symbol has been used improperly (REF 


symbol defined inside and outside the program; 


| 
| A relocation error (use only relocatable label 
| 
| 
| 
| 
symbol not defined in the program) 


catable expression 


Address mode error (improper use of IXB field) 


Illegal addressing mode (improperly written add 
a a ee Ge, 


| 
| 
| No such OPD format number 


A REF symbol has appeared invalidly in an unrelo- 


DEF 


| 
| 
in | 
| 
| 
| 
| 
| 
| 
| 


ress) | 


EXAMPLE OF TI 980 HEADER CARD 
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If used, first record of source. 


CPYTPE (COPY TAPE TO TAPE) 


This program copies tape to tape and verifies. It indicates 
the number of files copied and verified on the ASR. Default 
is from MT1 to MT2. 


This example will copy and verify to double EOF. 
To use: Hit <HSC> for //. 
KEY IN: 

//JOB name SYSTEM.) 

/ /RUN ee 


Answer to questions on ASR. 


User Mode No. = 134 UID-System Name=SC 
COPY/VERIFY MAG TAPE UTILITY 


Enter 1 to copy & verify; 2 to verify only 1 


Enter type of copy 


EOM - up to end of medium 
2EOF - up to double end of file 
N - up to and including file N, where N is 


a file number 2EOF 


When terminated, the program indicates on the ASR: 


PASS ONE COMPLETE: N files copied 
NORMAL TERMINATION: N files verified 


(N = number of files on tape) 


CPYTPE (COPY TAPE TO TAPE) JCL 


/REPLACE CPYTPE. 
/EXEC OBJ=(1,SYSTEM,CPYTPE) MEM=(1,>4100,1000) MEM:=MEM; 


/ PRTY=(1,15) TIME=-1 OBJ:=OBJ PRTY:=PRTY 
/ASSIGN 0 SC ——~DEVICE:=DERR . ERRORS 
/ASSIGN 4 SC.‘ DEVICE:=DCON FILE:=FCON BUFFERS=1 . CONTROL 
/ASSIGN 5 MT1 —_—DEVICE:=DIN INPUT 

/ASSIGN 7 MT2.DEVICE:=DOUT OUTPUT 


/END 


DXCOPY (FILE COPY UTILITY) 


The DXCOPY utility copies data from any type of file or device 
to any other type file or device. DXCOPY also generates keys 
for key indexed files. 


Listing is defaulted to dummy and DOUT and DIN both are de- 


faulted to DISC1. The default for DCON is dummy which defaults 


DXCOPY to 'SOURCE' as the control parameter. For further in- 
formation on DXCOPY consult section 8.7 of the DX980 General 
Purpose Operating System Programmer's Guide (Manual No. 
943005-9701 ) 


Hit <ESC) for //. 


* KEY IN: 
//JOB name SYSTEM. 
//RUN DXCOPY FIN=(userid,filename) DOUT=DUMMY ; 
., DLST=SYSOUT_DCON=SC. 
Sage ee 
Answer BEEP with: SOURCE Nee (NO PERIOD HERE! ) 
EXAMPLE: To copy a binary file from card reader to card punch 
//JOB name SYSTEM. , 
//RUN DXCOPY DIN=CR1 DOUT=CP1 a 
BEEP: —) (NO PERIOD HERE! ) 


* FROM CRT USE DCON=TERMIO 
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/ REPLACE 
/EXEC OBJ 
/ 

/ ASSIGN 

/ ASSIGN 

/ ASSIGN 

/ 

/ ASSIGN 


/ 
/ 
/ 
/ 
/ 


/ ASSIGN 
/END 


DXCOPY (FILE COPY UTILITY) JCL 


DXCOPY . GENERAL PURPOSE COPY. 
=(1,SYSTEM,DXCOPY) MEM=(300,4000,1500) PRTY=(1,15); 
TIME=-1 PRTY:=PRI | MEM:=MEM 
0 DUMMY DEVICE :=DMSG 
DUMMY DEVICE:=DCON FILE:=FCON BUFFERS=1 
6 DUMMY DEVICE:=DLST FILE:=FLST BUFFERS=1 
MAXTRACK=200 
7 DISC1 DEVICE:=DOUT FILE:=FOUT REPLACE:=ROUT 
ACCESS :=COUT KEYLEN:=KOUT ALLOCATE: =LOUT 
RELREC:=REL INDEXED:=IND LINKSEQ:=LIN 
LRECL:=GOUT BUFFERS:=BOUT BUFFERS=2 
ACCESS=(ANY,ANY,ANY,ANY)  KEYLEN=6 
ALLOCATE=(1,0, 128,10) LRECL=64 
8 DISC1 DEVICE:=DIN  FILE:=FIN  BUFFERS=1 


wn 


. OUTPUT 


. INPUT 


.ERROR MESSAGES 
. CONTROL/MESSAGE 
. LISTING 
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LIST (80/80 LIST) 


Default from cards to line printer, ASCII source. Terminates 
on /*. Hit<ESO>for //. 


KEY IN: 
//JOB name SYSTEM. 


a? 


//RUN LIST. 


Example of List using mag tape input: 


//JOB name SYSTEM. 
//RUN LIST DIN=MT1. 


This would use mag tape drive 1 as input, with output to 
line printer. 


42 


LIST (80/80 LIST) JCL 


/REPLACE LIST .LIST CARD TO SYSOUT. 

/EXEC OBJ=(1,SYSTEM,DXCOPY) MEM=(300,6000,2000) PRTY=(1.15); 

/ TIME=-1 MEM:=MEM PRTY:=PRI OBJ:=OBJ 

/ASSIGN 0 DUMMY DEVICE:=DMSG .ERROR MESSAGES 
/ASSIGN 5 DUMMY DEVICE:=DCON . CONTROL/MESSAGE 
/ASSIGN 6 SYSOUT DEVICE:=DLST FILE:=FLST BUFFERS=1; . LISTING 

/ ALLOCATE:=LLIST MAXTRACK=200. 

/ASSIGN 7 DUMMY DEVICE:=DOUT FILE:=FOUT REPLACE: =ROUT; OUTPUT 

/ BUFFERS=2 BUFFERS:=BOUT LINKSEQ:=LIN RELREC:=REL; 

/ INDEXED:=IND ACCESS= (ANY, ANY , ANY, ANY) ; 

/ ALLOCATE=(1,0,128,10) ALLOCATE:=LOUT KEYLEN=6; 

/ KEYLEN:=KOUT LRECL=64 LRECL:=GOUT 

/ASSIGN 8 CR1 —~DEVICE:=DIN FILE:=FIN BUFFERS=1 . INPUT 


4A 


LISTINGS ON WIDE PAPER 


Whenever a listing is needed on wide paper (132 col.), first 


switch the log from the Centronics printer by: 
Hit the <ESC> key for //. 


KEY IN: 
//JOB name sie 
//RUN —OSeSE 
Run the utility desired and after the listing is removed 
from the printer, switch the log back from the ASR to the 


Centronics printer by: 


KEY IN: 
//RUN LOG2LP. 


NOTE: From CRT, the last step would be to key in: 
LOGOFF. 
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LOG2SC AND LOG2LP JCL 


/REPLACE LOG2SC. 

/EXEC OBJ=(1,SYSTEM,CHGLOG) MEM=(30,200,200) PRIV PRTY=(1,1) TIME=-1, 
/ASSIGN 1 SC. 

/END. 


/REPLACE LOG2LP. 

/EXEC OBJ=(1,SYSTEM,CHGLOG) MEM=(30,200,200) PRIV PRTY=(1,1) TIME=-1. 
/ASSIGN 1 LP2. 

/END. 


MANDEL (COPY TAPE TO TAPE) 


This copies from mag tape to mag tape, copying all files to 
double End of File. (If there is not a double EOF, the 

master tape will run off the end of the tape. It must have 
a double EOF). After copying all files, both tapes rewind, 


and the copy is verified. When the copy is verified the tapes 


rewind and unload. A message on the ASR indicates to the 
operator/user to swap the tapes and hit carriage return on 
ASR. The tapes will verify a second time, rewind, unload 
and the Job terminated. The listing off the line printer is 


returned with both tapes. 
On ASR hit<ESC)key for //. 


KEY IN: 
//JOB name SYSTEM ) 
//RUN MANDEL. 


NOTE: Swapping the tapes and reverifying is done to ensure 
that the copy can be read on another drive other than 


the one it was written on. 


fe) 
r| 
tl 
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=! 
a 
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ol 
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Ha 
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| 
we 
cl 
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MANDEL (COPY TAPE TO TAPE) JCL 


/REPLACE MANDEL 

/EXEC OBJ=(1,SYSTEM,CPYTYPE) MEM=(1,>4100, 1000) 
/ PRTY=(1,15) TIME=-1 PRTY:=PRTY. 
/ASSIGN 0 SYSOUT DEVICE:=DALL DEVICE:=DERR. 
/ASSIGN 4 DISC1 FILE=(SYSTEM,CPYCN1) BUFFERS=1; 


DEVICE:=DALL FILE:=FCON DEVICE:=DCON. 


/ASSIGN 5 MT1  DEVICE:=DIN. 

/ASSIGN 7 MT2  DEVICE:=DOUT. 

/EXEC OBJ=(1,SYSTEM,SWAP) MEM=(1,164,150); 

/ PRTY=(1,15) TIME=-1 PRTY:=PRTY. 

/ASSIGN 0 SC —-—-DEVICE:=DALL DEVICE:=DSWAP 
/EXEC OBJ=(1,SYSTEM,CPYTPE) MEM=(1,)4100,1000) ; 
i PRTY=(1,15) TIME=-1 PRTY :=PRTYs 
/ASSIGN 0 SYSOUT DEVICE:=DALL DEVICE:=DERR 
/ASSIGN 4 DISC1 FILE=(SYSTEM,CPYCN2) BUFFERS=1; 
j - DEVICE:=DALL FILE:=FCON DEVICE:=DCON 
/ASSIGN 5 MT1 DEVICE:=DIN. 

/ASSIGN 7 MT2  DEVICE:=DOUT. 

/END. 


. CONTROL 


. SWAP MESSAGE 


. ERR LISTING 


. CONTROL 


MT960 (980 TO 960 MAG TAPE CONVERSION) 
This is a generalized version of the program ''PRP960". 


It generates a mag tape on the DX980 system which is 


in the proper format to serve as input to any 960 system. 
If DCON is left at dummy in the JCL, the default record 
length value is 80 (# bytes/record). 


If DCON is assigned to SC or TERMIO, the operator/user 
specifies a record length (valid length is 1-256 bytes). 


Normal run from disc file to mag tape. 


On ASR hit <ESC> key for //. 


KEY IN: 
//Job name System. , 
//RUN MT960 FIN=(userid, filename ) 
Note: If using cards as original source into the 


DX980 System, the "!" and " J" characters 
have opposite Hollerith codes in the 980 


and 960 computer systems. 


/REPLACE MT960 


MT960 (980 TO 960 MAG TAPE CONVERSION) JCL 


.980 TO 960 MAG TAPE FORMAT CONVERSION. 


/EXEC OBJ=(1,SYSTEM,MT960) ; 

/ MEM: =MEM MEM= (30,643, 1000) ; 
/ PRTY:=PR1 PRTY=(1,15); 

/ TIME=-1 

/ASSIGN 1 DUMMY DEVICE:=DCON 

/ASSIGN 4 DISC1 DEVICE:=DIN: 

/ FILE:=FIN BUFFERS=1 


/ASSIGN 5 MTI 
/END 


DEVICE :=DOUT 


~OPERATOR'S CONSOLE. 


.DATA INPUT. 
.MAG TAPE OUTPUT. 


MULTI (MULTIPLE COPY LISTING PROGRAM) 


This produces multiple copies on the line printer (one after 


another). Each copy begins at the top of the page. 
Default is disc file to line printer. 


Hit <ESC>for //. 


KEY IN: 
//JOB name SYSTEM. 
//RUN MULTI FIN=(userid, filename). 


A message is indicated on the ASR asking the operator/user 
"number of copies desired.'"' Respond with a value greater 
than. 0. from 1 to: 3. 


On CRT KEY IN: 
RUN MULTI FIN=(userid, filename) eee) 


(If ITS is running) 


MULTI (MULTIPLE COPY LISTING) JCL 


/REPLACE MULTI .GENERAL PURPOSE MULTIPLE COPY LISTING PROGRAM. 


/EXEC OBJ=(1, SYSTEM, DXCOPY) TIME=-1; 

/ MEM: =MEMDX MEM= (300, 5000, 2000) ; 

/ PRTY :=PRIDX PRTY= (1,15) .DXCOPY PROGRAM. 
/ASSIGN 0 DUMMY DEVICE:=DXMSG .DXCOPY ERRORS. 
/ASSIGN 5 DISC1 DEVICE:=DXCON FILE= (SYSTEM, DL980C) ; "SOURCE NOKEYS" 

y BUFFERS=1 . COMMAND . 

/ASSIGN 6 DUMMY .DXCOPY LISTINGS. 
/ASSIGN 7 DISC1 NEW INDEXED KEYLEN=2; 

/ FILE= (TEMP ,MULTI) ; 

/ BUFFERS : =BUFF BUFFERS=2 ; 

j ACCESS : =ACC ACCESS= (ANY, ANY , ANY, ANY) ; 

/ ALLOCATE : =ALL ALLOCATE= (1,0, 128, 200) -ORIGINAL STORAGE. 
/ASSIGN 8 DISC1 DEVICE:=DIN; 

/ FILE:=FIN; 

/ BUFFERS : = BUFF BUFFERS=2 -ORIGINAL INPUT. 

/ EXEC -OBJ=(1,SYSTEM,MULTI) TIME=-1; 

/ MEM: =MEM MEM= (30, 400, 1000) ; 

/ PRTY :=PRI PRTY= (1,15) .MULTIPLE COPY PROGRAM. 
/ASSIGN 1 SC. _- DEVICE: =DCON .OPERATOR'S CONSOLE. 
/ASSIGN 4 DISC1 FILE= (TEMP ,MULTI) ; 

/ BUFFERS : = BUFF BUFFERS=2 . BUFFERED INPUT. 
/ASSIGN 6 SYSOUT DEVICE:=DLST; 

/ BUFFERS : =BUFF BUFFERS=2 ; 

/ FILE:=FLST; 

/ MAXTRACK: =MAXT MAXTRACK=100 .LINE PRINTER OUTPUT. 


/ END 


an 


OBJSEQ (OBJECT SEQUENCER ) 


This program Sequences object cards. Default is from card 
reader to card punch. Increments by 1. Increment number 
cannot be changed. No control card needed, but PART NUMBER 
MUST BE SUPPLIED BY USER if needed. The part number can be 


blanks or a 6 digit number. Program terminates on /*. 


If a reply to a device (card reader, card punch, or line 
printer) must be made, the operator must return the ASR 


(SC) to operator's mode by: 


Hold down <CTRL> key and <O> key, then hit <ESC> key for //. 


See note for ASR messages. 


The sequenced deck will be punched as follows: 


col 1 64 reproduced as is from original 

col 65 blank 

col 66 71 part number 

col 72 76 blank 

col 77 80 sequence numbers with leading zeros 


To run this utility: 
Hit <ESC>key for //. 


KEY IN: 
//JOB_name SYSTEM.) 
/ /RUN OBJSEQ 7 


INPUT PART NUMBER (6 DIGITS) OR SPACE: 123456 
LOAD DUPLICATE DECK, KEY GO 
GO 
OBJECT SEQUENCE - VERIFY COMPLETED 


** SEE NOTE ON NEXT PAGE 


OBJSEQ (EXAMPLE USING A DISC FILE AS INPUT, CARDS AS OUTPUT) 
Hit <ESC>+key for //. 


KEY IN: 
//JOB name SYSTEM. 


//RUN OBJSEQ DIN=DISC1 Einn (userid, filename). , 


Answer part number questions by entering a 6 digit part number 
or blank. Read in duplicate cards after punched for verifi- 


cation when indicated by message on ASR. 


NOTE: If any replies to a device (card reader, card punch 
or line printer) have been made during the job, to 


get the messages, the operator must return the SC to 


user mode by: 


Hold down <CTRL> key and hit U on console keyboard. 


OBJSEQ (OBJECT SEQUENCER) JCL 


/REPLACE OBJSEQ .980 OBJECT CARD SEQUENCING (WITH OPTIONAL PART #). 


/EXEC  OBJ=(1,SYSTEM, OBJSEQ) MEM= (30,1000, 1000); 

/ PRTY=(1,15) PRTY:=PRI; 
/ TIME=-1 MEM: =MEM; 
/ OBJ :=OBJ 

/ASSIGN 4 SC  DEVICE:=DMSG 

/ASSIGN 5 CR1 DEVICE:=DIN FILE:=FIN BUFFERS=1 
/ASSIGN 6 CR1 DEVICE:=DVER FILE:=FVER BUFFERS=1 
/ASSIGN 7 CP1 DEVICE:=DOUT FILE:=FOUT BUFFERS=1 
/ASSIGN >16 DISC1 FILE= (TEMP , SYSTEM) ; 


/ BUFFERS=1 NEW; 
/ ACCESS= (ANY, ANY, ANY, ANY) ; 
/ LINKSEQ ALLOCATE: =ALL; 

/ ALLOCATE=(1,0,32,10) 

/ 


/END 


.OPERATOR ANSWERS 
.ORIGINAL OBJECT INPUT 
. INPUT FOR VERIFICATION 
. SEQUENCED OUTPUT 


. SCRATCH FOR STORAGE 
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SEQNCR (SOURCE SEQUENCER ) 


This program sequences source records. Default is from cards 
to cards. Terminates on /*. Control card is supplied by the 
user. If a reply to a device (card reader, card punch, or 

line printer) must be made, the operator must return the ASR 


(SC) to operator's mode by: 


Hold down <CTRL> key and <O> key, then hit <ESC> key for //. 


See note for ASR messages. 


This program increments by 10. The beginning number can be 


changed, but the increment of 10 cannot be changed. 
To use the sequencer: Hit <ESC> for //. 


KEY IN: 
//JOB name SYSTEM. 
//RUN SEQNCR DMES=SC. 


Answer questions on ASR. 


ENTER CONTROL RECORD ON LUN 4, HIT C/R) 
READY SOURCE, HIT C/R 
LOAD DUPLICATE DECK, HIT C/Ry 

RE-READ DUPLICATE DECK (YE/NA) ? ae (Y if re-verification is wanted) 


ERRORS : 


If any cards are mis-punched, a duplicate card is punched. 
Replace the mis-punched one with the duplicate. When the deck 
has all been read in, a message on the ASR asks if the opera- 
tor/user wants to re-verify. *Answer with yes a8)) or no (N)y 
If yes, reload the duplicate deck in again, if no, JOB termi- 


nates. 


ana 


NOTE: If any replies to a device (card reader, card punch or 
line printer) have been made during the job, to get the 


control messages, the operator must: 


Hold down <CTRL> key and hit U on console keyboard. 


Using SEQNCR to sequence from a disc file: 


//JOB name SYSTEM. 
//RUN SEQNCR DMES=SC_DSRC=DISC1 PSRC= (userid, filename). ) 


This program does not put a /* out after punching the sequenced 
deck. Because of this, the verify step will not terminate 
normally. The operator must put a /* card in the card reader 
to terminate the Job after all of the duplicate deck has read 


in. 


The last record of the file will be punched twice, so the 


second record should be discarded. 


The control card is needed for sequencing from any device. 


ip xe) 


EXAMPLE OF CONTROL CARD FOR SOURCE SEQUENCER 


BEGINNING # 
PART # — | 
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W617 1235 26 85 22 23 26 25 26 27 2A 28 Fo 21 329s 34 35 AG AT 29 31 8 4b 43 14 48 Ab Ae 83 49 56 57 52 53:54:95 36 57 $8 32 GO G1 A2 63 G4 65 66 G7 Gh 59 70 71 7272 74 75 F677 Ft FS 0d 


PUEPVETETPVETD DETTE V EEE TTT TATED ETT TDD ATP TTT aad 
NULEEE EEL EME YES Ee PERE eRe Vere eee ee yee eee eee peri eevee ern e ey Mee waa ye ee Ya 
33333333333333333333333333333933333339339393333393333393933333333333939332 333333333333 | 
AAA d ddA d dd dd dd edad adda AGA dag Gadd d add A Ad adda ddd gddddddagadagd 4444444444) 
ee ade ne mh airing Eine a Brie i se eUh eda arih ing agen. eee iic ie ee ee eee Be Ba Re EP i ns | 
BEGGECCCHSESEBSOREHEESEG CGC BE CB SECESSSHEGEBGHE BG OG GBESSOBSHOESSBREGREG GEGREBRAS 
PET ULELTT ETAT CTT TAA LT CET a TT TA A PT A | 
BERESLGERAEBVRAGBRTERHR GREK IIS GST AGRE R RRL IRGERERHIHRREREKBARKHRGERRSR BRE RBG ata 


gesggggaaggs awa Vea ea 888 SE DECCCERECECOCCE OSE ECE CLSOSE CEE RSE 


SPa@ a FTA gigi ete Tye 0 i co 28 be ALS 2354456 4 5736 9 Oo di aa $445 46 4705 49 80 SE 52 53:56 55.56 8° Se 30 cow” 92 89:04 BF 68 OF BR od FO TE Gg fg Pa TS RF rare 


IBM i 


SEQUENCE EXAMPLE 


REEEERRERAKERER ER EREES YDUR SOURCE DECK 


OOOCOCHODNNHAAIGGOGNHNNDANNNDDONNNINN™ eae 
35 36 47 39 39 40 11 47 4344 45 46 47 48 49 50 5 52 52 54 55 56 57 58 59 60 61 62 63 64 65 G0 47 G8 G9 70 71 72 7974 7575 ¢: 7873 60 
TUPTEVITTAT ETT TED nF ee 
TEES ETETSUS EE ee ES 


Peake ie cai ee eect ete cL aeereee UMa nCire DLAI eo nya 


uvd 


~ - eg eg se 3g gg st pg gw pg g kt og gb gd g kh fp aedepe 2 & & £2 Feet 8 td Ff bee 


VET UVETULUVETETOCICecererrece rr recevececeeerrecererecerccrerececee Ge CLececeeey. 
SESE ETETEATAT TES ELELEEEELELELEELEEEEEEELESELELELT ELE TLEELESEREEESERSOLESELEEEELE 


ROGEEC LUGAR CES HEEREMPE CARRE Ce ah rage CR caene ane mead ere ane Ueno ee arene e ean sg 

C Ce ee 
sgiggcaroggugasessagaggggagggasgigagzggggagagguggagggggacsygais od ies 
Tigi Te 7 ie 


“45S B27 Be | BO 9s ds YE 4B IT AB IG Ad 7 47 43 4d AS AG AT 4B 49.60 51S? 52 54 35 4 57 52 59 90 BI 62 G3 £4 53 65 67 ES Be PZT 72 757) Pe 78d 


| SEESKCSSBESHSEBSSESGOSEER CSS ORESSEOGISESEGECBESRGESSEGSESGREIEEERE GEL ES SAEEC Gar 
| 
| 


ee Uwe vy 


9a 


SEQNCR (SOURCE SEQUENCER) JCL 


/REPLACE SEQNCR. 
/EXEC OBJ=(1,SYSTEM,SEQNCR) MEM=(3,1000,1000) PRTY=(1,15) TIME=-1 MEM:=MEM; 
/ PRTY :=PRI 


/ASSIGN O DUMMY DEVICE:=DMES 

/ASSIGN 4 CR1 DEVICE:=DCON FILE:=FCON BUFFERS=1 
/ASSIGN 5 CR1 DEVICE:=DSRC FILE:=FSRC BUFFERS=1 
/ASSIGN 6 CPi DEVICE :=DCOUT 

/ASSIGN 7 CP1 DEVICE: =DOUT 

/ASSIGN 8 DISC1 FILE=(TEMP,SCRL) NEW BUFFERS=1 LINKSEQ; 


/ ACCESS= (ANY , ANY , ANY , ANY) ALLOCATE= (1,300, 256, 300) 
/ASSIGN 9 CRI DEVICE : =NSRC 
/END 


VERIFY (RECORD BY RECORD VERIFICATION PROGRAM) 

Default run command takes both original and duplicate files from 
the card reader, lists at most 10 bad records, and assumes in- 

put is OBJECT. Gives a listing with a total of records investi- 
gated, and satisfactory verification noted when all records match. 
Operator to return listing with job. 

All records are 80 bytes. 


To use hit <ESC> for //. 


(FOR OBJECT) Key in: //JOB name SYSTEM.) 
/ /RUN VERIFY 


Answer beep with: DATA NOR (DO NOT PUT A PERIOD HERE! ) 


To have all errors detected and listed: 


(OBJECT ) //JOB name SYSTEM.) 
/ /RUN VERIFY DERR=CR1, 


ee 


Answer beep with: DATA NOKEYS » (NO PERIOD HERE! ) 


FOR SOURCE: 
//JOB name SYSTEM.) 
//RUN VERIFY ASCII=CR1.») 


Answer beep with: SOURCE NOKEYS. ) (NO PERIOD HERE! ) 


This example lists 10 records. 


oa 


NOTE: 


DERR (LUNO 1) is defaulted to dummy. This causes the 
program to automatically terminate after 10 errors. If 
LUNO 1 is assigned to any other device other than dummy, 
all errors are listed. DERR may be assigned to any device 


since no actual I/O is executed with DERR. 


ASCII (LUNO 2) is used to indicate whether the records 
are of Binary or ASCII coding. If left at "Dummy" input 
is binary. If ASCII is assigned to some device other 
than DUMMY, input is executed using the "READ ASCII" 
command. (Default is to DUMMY. ) 


The DXCOPY utility is first executed to buffer the 
"original" to a temporary file. This permits verifying 
inputs from the same device, such as the card reader. If 
cards are to be used as input, both the original and dupli- 
cate decks must end with /*. 
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/REPLACE VERIFY 


/ EXEC 

/ 

/ 

/ ASSIGN 
/ ASSIGN 
/ ASSIGN 
/ ASSIGN 


/ 
f 
/ 
/ 
/ 


/ ASSIGN 


/ ASSIGN 
/ASSIGN 
/ ASSIGN 
/ ASSIGN 
i 
/ 


/ 
/ ASSIGN 


/END 


CoO DN ON 


VERIFY (RECORD-BY-RECORD VERIFICATION) JCL 


MEM : =MEMDX 

PRTY :=PRIDX 
DUMMY DEVICE :=DXMSG 
SC DEVICE:=DCON 
DUMMY 


DISC1 BUFFERS :=BUFF 


CR1 DEVICE:=DOR; 
FILE:=FORG; 
BUFFERS : =BUFF 
OBJ=(1, SYSTEM, VERIFY) 
PRTY:=PRI 
MEM : =MEM 
DUMMY DEVICE:=DERR 
DUMMY DEVICE:=ASCII 
SYSOUT DEVICE :=DLST 
DISC1 BUFFERS: =BUFF 


CR1 DEVICE:=DDUP; 
FILE:=FDUP; 


BUFFERS : =BUFF 


. RECORD-BY-RECORD VERIFICATION PROGRAM. 
OBJ=(1,SYSTEM,DXCOPY) 


TIME=-1; 

MEM= (300, 5000, 2000) ; 
PRTY=(1,15) .DXCOPY 
.DXCOPY ERRORS. 

.DXCOPY COMMANDS. 

.DXCOPY LISTINGS. 
BUFFERS=2 ; 

NEW KEYLEN=2; 

INDEXED; 
FILE=(TEMP,VERIFY) ; 
ACCESS= (ANY, ANY, ANY, ANY) ; 
ALLOCATE=(1,0,128,200) 


. STORAGE 


BUFFERS=2 
TIME=-1;.VERIFY PROG. 
PRTY=(1,15); 

MEM= (30, 2000, 2000) 
.STOP AFTER 10 ERRORS. 


ASCII INPUT IF ASSIGNED 
.ERROR LISTINGS. 
BUFFERS=2; 


FILE=(TEMP, VERIFY) ; 
ACCESS= (ANY, ANY, ANY, ANY) ; 
ALLOCATE=(1,0,128, 200) 


BUFFERS=2 


ORIGINAL 


INPUT 


.DUPLICATE INPUT 


m 


APPENDEX A 


DEVICE Re PT ES 


CARD READER 


If the card reader stops before it is supposed to, there 
has been either a data error, a read error, or the Job 


has been rolled. 


1. If there is a data error, a message is printed on the 


ASR (SC). In that case, re-read the last card read and 


reply to the card reader. (must be from ASR) 


2. If there is a read check error, (the read check LT on 


card reader will be on), re-read the last card and reply 


to the card reader message indicated on the ASR (SC). 


Reply to the card reader by: 
Hit. <ESC> for://. 


//RE CR1 Y. (SEE NOTE) 


2 


Now it will read more cards. 
3. To see if your job has been rolled, get status: 


KEY IN: 
//ST. 
OR: //DS_n. n=JOB number 
(SEE APPENDIX B) 


NOTE: Reply to terminate the job if needed at this time by: 


KEY IN: 
//RE_CR1 N. | 
74 


CARD PUNCH 
What to do when it stops. 
Is it out of cards? If so, put more in, go to clear CP. 


Has the Job been rolled? Check STATUS to see if it has 
been rolled. Hit <ESC> on ASR for //. 


KEY IN: 
//ST. for status of all Jobs in the system. 
OR: //DS_n. for detailed status of a Job if the 
Job number is known. n=Job number. 
(SEE APPENDIX B) 


Did you have a data error? Look for message on ASR. Clear 
card punch. Check last card punched before replying to CP. 


CLEAR CARD PUNCH 


1. HIT <ON LINE> BUTTON 
2. HIT <RESET> 

3. HIT <CLEAR> 

4. REPEAT STEPS 2 AND 3 
5. HIT <ON LINE> 


NOTE: The <ON LINE> indicator should be the only button lit. 
If any other buttons are lit, or the <ON LINE> button 
is blinking, repeat steps 1-5. If there are still any 
others on, get help. 


LINE PRINTER PROBLEMS 


To stop a bad listing on the line printer, or if the paper jams: 


FIRST STOP THE LINE PRINTER FROM PRINTING. 
TURN OFF LINE, WAIT FOR MESSAGE TO COME UP ON ASR (LP1 OFF 
LINE), TURN ON LINE, THEN HIT ESCAPE KEY (Reply must be 


from ASR only) for //. 


To continue the same listing: 


KEY IN: 


//BOS SKIP N (-N for number of lines to back 


Pl 
up to; N for number of lines to Skip forward on 
listing. The position is relative to the line 
being printed when BOS acts on the received BOS 
command. Backspacing a number of lines greater 
than the number already printed from the data 

set by using the SKIP option is equivalent to the 
RESTART option; skipping ahead for more lines 
than the ijines remaining to be printed is equi- 


valent to the CANCEL option. 


An example of skipping forward 100 lines would be: 


//BOS SKIP 100.5 


//RE_LP1 YES) 


g¢ 100 lines would be: 


wae 


//BOS SKIP -100) 


//RE_LP1 YES) 


A3 


To begin a listing over (page 1) instead of skipping lines, 


KEY IN: 
/ {BOS RESTART. 
//RE LP1 YES. 


This command will start at page one of the listing currently 
on the line printer. If the listing in question has printed 
the last banner, the job has been deleted in the spooler and 


the Job will have to be re-run. 
To cancel the current listing: 


KEY IN: 
//BOS CANCEL. 
//RE LP1 a) 
This will cancei the listing being printed now, and will 
begin the next listing on the spooler. When this is done, 
the listing will be deleted and the Job is gone. 


APPENDIX B 


STATUS 


STATUS 


The status command is used to determine the status of Jobs 
being run in the system. Look for the Job name keyed in at 
the time a Job was entered, next to the name is the job number. 


Status example: 


//STATUS zi The following is displayed on the ASR or CRT. 
JOBNAM.JOBNUM.STEP..STATE..... PRI..PRV...LL....EX....UL...TIME USED. 
Dx980—s «OO 1 RUNNING 0 0000 5C52 6FDA 2190 1934 
ITS 1 1 RUNNING 1 Y 7028 9475 A091 200 802 
BOS 2 I RUNNING 2 N AOB6 A3E4 A6D2 2394 75 
1 N 
1 


r< 


RRA 68 RUNNING 14 A6ES CBE2 DF6A 29 575 
MIKEB 60 ROLLED 15 N A6E2 D5C2 DD92 410 945 
JOB NO 60 STEPS 2 - 2 READY 


END OF DISPLAY 
Sn ne ee 


A detailed status of a particular Job can be done. 


Example.of the job named MIKEB in the above status example. 


//DS 60. 
ay” 

a rs ee ee 

JOB NO= 60 IS RUNNING AT PRIORITY 15 

USER TASK ID= 0000-RUNNING 


END OF DISPLAY 
a 


A Job can be cancelled by: 


//CA 60. 
JOB NUMBER 60 CANCELLED 


ome amend 


This cancelled Job number 60, named MIKEB. A Job cannot be 
cancelled if it is rolled. It must be running or ready, to be 
cancelled. Any job can be cancelled from the system console, 
but if the user wishes to cancel a job from a CRT, the job 


must have been entered on that CRT. 


APPENDIX C 


DX 98 0 ERROR CODES 


Dx98@ ERROR CODES 
AS OF 61/13/77 


i eOUT OF PARTITION REFERENCE IMPLIED BY PARAMETERS OF AN SVC CALL 
2 *JOB EXTENSION AREA TOO SMALL 

) eNO SPACE IN DOSCA 

5 “ILLEGAL NUMBER OF PARAMETERS IN SVC LIST 

6 #Il/0 ATTEMPTED ON NONSASSIGNED LUNO 

7 =I/0 ATTEMPTED WITHOUT OPEN 
8 "DUPLICATE OPEN ON SAME LUND 


9 eWHAIT CONTROL LIST ERROR FOUND ON USER SUSPEND 
1@ ePRIORITY ERROR 
i CPU TIME EXCEEDED 
12 eILLEGAL USER POST 
13 e ILLEGAL INSTRUCTION 
14 wA NON@EXISTENT SVC WAS ISSUED 
15 eUSER HAS REQUESTED ACCESS TO A PRIVILEGED 8vCc 
16 ILLEGAL SVC ARGUMENT eOUTSIDE USER PARTITION 
17 =PTR TO SVC ARG LIST OUTSIDE USER PARTITION 
18 eINVALIO DEVICE I O 
19 eNO SPACE IN PCB 
20 *#NO SYSTEM LUNO #® 14} 
21 eUSER FILE DIRECTORY OVERFLOW 
22 eMASTER FILE DIRECTORY OVERFLOW 
23 @PREVIOQUSLY DEFINED USER IN 
24 wILLEGAL USER ID 
25 eATTEMPT TN NELETE SYSTEM DISC MFD 
26 =INVALID ABNORMAL JOB TERMINATION CODE 
27 wUNDEFINED FILE 
28 wUNDEFINED USER ID 
29 eATTEMPT TOD REPLACE PREV ASSIGNED FILE 
30 ePREVIOUSLY DEFINED FILE 
a wINVALIO FILE TYPE OR PHYSICAL RECORD LENGTH > MAX SIZE ALLOWED 
32 *INSUFFICIENT TRK SPACE GON DEFINE 
33 eINSUFF, CONTIG, TRK SPACE ON DEFINE 
34 wEXCEEDEO DISC SIZE ON DEFINE 
35 ZERO KEY LENGTH FOR DEFINE 
36 eREADY JS8 FILE BAD 
37 eATTEMPT TO DELETE A SHARED FILE 
38 e INVALID FILE DISPOSITION CODE 
39 @QEVICE OFFLINE 
40 eATTEMPT TQ SHARE UNSHARABLE OEVICE 
44 eATTEMPT TO SHARE BLOCKES DEVICE 
42 we ATTEMPT TO ASSIGN EXCL A SHARED PASSED RESOURCE 
43 eOPERATOR CANCELLATION 
44 #TQQO MANY JOB STEPS 
45 eINVALID JCB 
46 eINVALIO INPUT LOT 
a? “JOB NO/STEP NO, NOT IN SYSTEM 
4a JOB NAME NOT IN SYSTEM 
49 wATTEMPT YO ILLEGALLY ACCESS FILE 
5A ePOTENTIAL RESOURCE DEADLOCK DUE TO INCOMPLETE PASSING 
51 e INVALID JSB SIZE SPECIFIED 
$2 eATTEMPT TO NEASSIGN UNASSIGNED LUNO 
53 -TOO MANY JOB STEPS (>15) IN ONE JOB STRING 
54 =PARENT JOB ENDED BEFORE JOB SYRING STARTED 


55 JMeLOAN MODULE TOO BIG FOR SPECIFIED USER SPACE 
56 JMeNO JOB INITIATION SYSTEM TASK FOR JOB 

57 JM=LOAD MODULE LOAD NO GOOD 

3&8 JM@eATTEMPT TO ASSIGN TO OISC DIRECTLY 

59 JM=DEASSIGNMENT OF OPEN DEVICE/FILE 


C1 


64 SUGMeSYSTEM OUTPUT QUENE OVERFLOW 
64 SOQMeTONO MANY OUTPUT FILES 


62 


70 
71 


=MEMORY PARITY ERROR 

“MEMORY PROTECT ERROR w ANDRESSING ERROR 

ePRIVILEGEN INSTRUCTION VIOLATION 

PRESOQURCE STACK OVERFLOW 

“BYTE RELOCATION ADDR BAD IN LOAD MODULE 

=MITP NUMBER BAD FOR LOAD OR LOADR 

eLOAD OR LOADR EXTENDS BEYOND USER MEM 
BPSwCAN NOT ALLOCATE INPUT DEVICE (REASONsMEMORY OR DEVICE NOT AVAILABLE) 
BPS=READ ERROR ON INPUT DEVICE 


72BPSOC@ILLEGAL OR MISSING "JOB" COMMAND 
73SBPSOC@ILLEGAL RUN COMMAND 


BPSeILLEGAL DATA COMMAND 
BPS=TOO MANY INPUT DATA FILE 
BPS#NO OF INPUT DATA FILES UNMATCHED WITH NO OF ASSIGNED INPUT DATA FILES 
BPSeDATA COMMAND UNMATCHED WITH INPUT ASSIGNMENTS 
BPS=OUTPUT QUEUE ERROR # REINITIALIZE QUEUE T0 USE BOS 
JM=JOBSTRING/STEP NOT IN ROLL FILE DIRECTORY 
JMeNO SPACE AVAILARLE IN ROLL FILE 
JMe INSUFFICIENT ROLLABLE MEMORY 
JMemROLL PERFORMED NORMALLY 
JM=ROLL FILE CLORBERED 
BPS@DATA ERROR ON LINE PRINTER 
BPSeEND OF FILE ENCOUNTERED WHILE SKIPPING RECORDS 
JMeREQUEST FOR MORE MEMORY THAN IN FREE MEMORY 
JM=DEVICE/FILE REQUESTED AT RUN TIME NOT AVAILABLE 
JM=INVALID JOB STEP NUMBER IN JSB 
eILLEGAL NUMBER INPUT 
@eILLEGAL COMMAND 
JM=aTOQ MANY JOBS IN THE SYSTEM 
@LUNO LOT NOT FOUND 
#“NOT A RR FILE 
JCLeUSER@ID SPECIFIED FOR PROCEDURE LIBRARY DOES NOT EXIT 
JCL=PROCEDURE LIBRARY DOES NOT EXIST UNDER SPECIFIED USERID 
JCLeUSER CANIT GAIN ACCESS TO PROCEDURE LIBRARY BECAUSE OF INTEGRITY CODE 
JCLeSPECIFIED PROCEDURE DOES NOY EXIST IN PROCEDURE LIBRARY 
JCL©HARDWARE FAILURE WHILE ATTEMPTING READ FROM SPECIFIED PROCEDURE LIB 
JM@ATTEMPTED YO USE FILE OF RESTRICTED USER ID 
OCeHARDWARE I/0 ERROR IN OP, COMMUNICATIONS 
NCweINVALIO. MESSAGE IO 
OCSINVALID OPERAND IN OP COMMUNICATIONS 
OC#INVALID ARGUMENT LIST IN OP, COMMUNICATIONS 
OC#JNVALIO JOB NUMBER PASSED IN OP ,COMMUNICATIONS 
OC*ATTEMPT TO OFFLINE SYSTEM DISC OR SYSTEM CONSOLE 
OC#NO SPACE IN DSCA OR JEA 
OC@INVALIO OP COMMUNICATIONS COMMAND 
NCeJNB NUMBER NOT FOUND BY OP, CUMMUNICATIONS 
OC#IN OJCBPR, INVALIO SIZE REQUIRED FOR '//JoOB! JSB 
OC=INVALID NUMBER USEN FOR SKIP COMMAND TO BATCH OUTPUT SPOOLER 
OCeUNDEFINED COMMAND GIVEN TO BATCH OUTPUT SPOOLER 
OC=ATTEMPT TO CANCEL A ROLLED JOB 
OCeILLEGAL COMMAND FOR RESERVE OPERATOR COMMUNICATIONS 
IDeCEVICE NOT READY 
IO=CONTROLLER ERROR 
IO=DATA ERROR 
JOeCONTROLLER AUSY ERROR 
TO*WRITE PROTECT ERROR 
IO=EOR ERROR 
IOeREADe AF TEReWRITE ERROR 
IQ-DEVICE OFFLINE 
IO-ILLEGAL OPeCODE 
IO=DEVICE TIMEOUT (DEVICE DID NOT RESPOND) 
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233 
234 
235 
236 
237 
238 
239 
240 
241 
243 
249 
25a 
251 
252 
254 
256 
257 
258 
4a} 
4a2 
403 
404 
405 
406 
407 
408 
4a9 
41a 
4i{i 
412 
413 
a{4 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
43a 
431 
433 
434 
435 
436 
437 
439 
443 
444 
445 
446 
447 
448 
449 
450 


FMeNO SPACE AVAILASLE ON DISC VOLUME 
FMeFILE FULL I/70 ERROR 
FMeATTEMPTED WRITE, LOGICAL RECORD >8 PHYSICAL RECORD @ OVERHEAD 
FMeHAROWARE FAILURE ON OYSC VOLUME 
FMeINDEX, REPLACE ATTEMPTED ON NON@EXISTING KEY 
FMeEXISTING KEY FOUND ON 'WRITE! OPeCODE enOPERATION NOT PERFORMED 
FMmINDEX, WRITE/REPLACE ATTEMPTED ON NON@KEYVED RECORD 
FMeINOEX, REPLACE ATTEMPTED ON KEYED RECORD 
FMeINDEX, REPLACE ATTEMPTED ON NULL DATA (NON@EXISTENT) 
FMweINDEX, RELe=REC, NO KEY AFTER SEARCH 
FMeINVALID FILE TYPE (NONwEXISTENT) 
FMe INSUFFICIENT TRACKS FOR ALLOCATION 
FMe INSUFFICIENT CONTIGUOUS TRACKS LEFT ON OYSC VOLUME 
FMeALLOCATION EXCEEDS NISC VOLUME CAPACITY 
FMeUNABLE TO ALLOCATE BUFFERS SECAUSE OF JOB EXTENSION SIZE 
FMeINSUFFICIENYT NUMBER OF BUFFERS FOR ATTEMPTED OPERATION 
FMeOPCODE 1S EITHER NON*EXISTENT OR ILLEGAL 
FMeACCESS VIOLATION, INTEGRITY ERROR 
CSCNeOVERFLOW OF KEYWORD AREA 
CSCNeOVERFLOW OF PACKED STRING STORAGE 
CSCNeR,H.S, OF EXPRESSION OR TERM MISSING 
CSCNeILLEGAL EXPRESSION SUBSCRIPT 
CSCNeMISSING DELIMETER AFTER COMMANO YO 
CSCNeNUMBER YS LARGER THAN 16 BITS 
CSCNwOPERAND STARTS WITH ILLEGAL CHARACTER 
CSCNweILLEGAL DIGIT IN DECIMAL NUMBER 
CSCNeMISSING DELIMTER BETWEEN OPERANDS 
CSCNeMISSING DELIMETER BETWEEN SUBSCRIPTS 
CSCNeILLEGAL CHARACTER PRECEEDS COMMAND 
ITS#RUN COMMAND DOES NOT CONTAIN A LABEL OR AN EXPRESSION 
CSCNeMISSING EQUAL SIGN IN ASSIGNMENT 
CSCNeRIGHT HAND SIDE OF ASSIGNMENT MISSING 
CSCN*MORE THAN ONE @ SIGN IN EXPRESSION 
CSCNeSIZE OF PACKED STRING «< & CHARACTERS 
CSCNeUPPER BOUND ON KEYWORD AREA « { 
CSCNeNUMBER OF RESERVED LABELS < @ 
CSCNeSTARTING COLUMN FOR SCAN NOY IN RANGE (08179) 
JCLeFOR A NEW FILE, USER DIRECTORY NAME DIFFERS FROM CURRENT USER 
JCLeJSB MUST CONTAIN DEVICE INDEX, NOY THE POT ADDRESS 
JOCLeDEVICE INDEX MUST BE «<8 255 
JCL@=PHYSICAL Rob, < KEYeLENGTH # 14 
JCL=FILE HAS BAD ACCESS CODE VALUE 
JCL=BOTH 'DELETE! & 'PASS! SPECIFIED 
JCLeLOGICAL R,L, » PHYSICAL R,L. 
JCLeLOGICAL RL, a MULTIPLE OF 32 
JCLeDEVICE NOT SPECIFIED OR INCORRECTLY SPECIFIED 
JCLeUSER ID NOT SPECIFIED 
JCLeFILE NAME NOY SPECIFIED 
JCLeILLEGAL FILE NAME SPECIFIED (UFD & MFO ARE NOT VALID) 
JCLe# PRIORITY LEVELS > 31 OR « 1 
JCL@eJOB STEP PRIORITY = 34 OR < ¢{ 
JCLeOBJ, VOLUMN IQ IS > 22 OR « | 
JCL=-TCB STACK SIZE < 1 WORD 
JCLeILLEGAL COMMAND AFTER 'DELETE! 
JCLeTIME LIMIT < 1 SECOND 
JCLe# PRIORITY LEVELS ¢ JOB STEP PRIORITY I8 > 32 OR « 1 
JCLeJOB EXTENSION SIZE <2 YCBR STACK SIZE + 15 WORDS 
JCLeINVALIO MEMORY PARAMETER 
JCLeVOL USER ID NOT INITIALIZED 
JCL=VOLUMN FILE NOT INITIALIZED 
JCL@«VOL USER ID OR FILE NAME >» 6 CHARS 
JOL@=VOL PASSWORD >» 4 CHARS 
JCL@©hRONG # OF OPERANDS ON THE RIGHT SIDE OF AN EXPRESSION 
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451 
4352 
453 
4354 
436 
457 
438 
459 
4623 
464 
462 
463 
464 
465 
466 
467 
468 
469 
474 
471 
475 
476 
477 
478 
479 
48a 
461 
490 
491 
492 
Sat 
305 
Sia 
Sit 
S12 
352A 
521 
522 
523 
526 
527 
528 
529 
356 
331 
5332 
533 


534 


535 
336 


JCL=OPERAND IS NOT A LABEL OR & SIIBSCRIPTED EXPRESSION 
JCL=OPERAND ON THE RIGHT SIDE IS NOT A LABEL OR A NUMBER 
JCL=BAD DEVICE NAME 

JCL=BLOCK SIZE « 1 

JCLeREDEFINITION OF LUND IN JOBSTEP 

JCL=PASSWORN > 4 CHARACTERS 

JCL*USER ID OR FILE NAME >» 6 CHARACTERS 

JCL=NUMBER BUFFERS «< | 

JCLeRESINITIALIZATION OF JSB ITEM 

JCL@BAD LABEL FOR ACCESS CODE 

JCL@INITIAL TRACKS « | 

JCLeFIRST TRACK ANDRESS «< 9 

JCL=PHYSICAL RECORD LENGTH «< 392 

JCLePHYSICAL RL, NOT MULTIPLE OF 302 

JCL@MAX TRACKS « (INITIAL OR 1) 

JCLeLOGICAL RECORD LENGYH « j 

JCLeLUNO NUMBER NOT IN RANGE @ TO 284 

JCL@KEY LENGTH NOT IN RANGE 4 TO 3¢ 

JCL=OPERAND DOESN'T START WITH LABEL 

JCLeKEYNAME ON THE LEFT SIDE OF AN EXPRESSION IN NOT DEFINED 
JCLeOVERFLOW OF KEY@ENTRY TABLE 

JCL*=OVERFLOW OF KEYeREFERENCE TABLE 

JCLeOVERFLOW OF KEYeCHARS TABLE 

JCL=DISC ERROR ON LUNO 4 

JCLeINDEX KEY NAME FOLLOWING 'CREATE! OR "REPLACE! » 6 CHARACTERS 
JCLeGREATER 31 ASSIGN CARDS IN THIS JOB STEP 
JCLe'CREATE! OR 'REPLACE! NOT FOLLOWED BY INDEX KEY NAME 
JCLeDEV INDEX « 21 OR FILE VOL » 29 

JCLePHYSICAL R,L, (CHAR) «< (KEYLEN # 2 # 44) 

JCLeFILE TYPE NOT SPECIFIED WHEN NEEDED COEFINE, ETC,) 
JCLeKEYNAME IS NOT IN RESERVED WORD LIST 


‘JCLew# OF ENTRIES IN TABLE PASSED TO 'CRLOOK! J§ NEGATIVE 


JCLeSUBSCRIPTS APPEAR ON LHS OF EQUAL SIGN 
JCLaTRIED TO FETCH NONWEXISTANT RHS SUBSCRIPT 

JCLeTRIED TO FETCH NON@EXISTANYT OPERAND 

JCLeI/0 ERROR ON LUNO = 2, (ECHO PRINT) 

JCL*EOF, EOM, OR I/O ERROR ON LUNO ® 1, (JCL IN) 

JCLeMISSING SLASH IN FIRST COLUMN OF JCL 

JCLeOVERRIDING KEY WORD ON RUN CARD DOES NOT EXIST FOR THIS PROCENURE 
JCL=NUMBER OF KFEYmENTRIES IS NEGATIVE 

JCLeNUMBER OF KEYwENTRIES » 19 

JCL=NUMBSR OF KEYeREFERENCES < ® OR > 49 

JCL=NUMBER OF KEYeCHARACTERS NOT IN RANGE @ TO 129 

JCL@KEY@ENTRY POINTS TO KEY REFERENCE WHICH IS NOT INITIALIZED 
JCLeKEYmENTRY FLAG INDICATES THAT NEITHER JCB NOR LNT IS BEING INITIALIZED 
JCLeLDT NUMBER REFERENCE BY KEYeENTRY IS NOT IN RANGE @ TO 3a 
JCL=PRODUCTION NUMBER NOT IN RANGE 3 TO 31 

JCLeJOB STEP NUMBER NOT IN RANGE 1 TO 15 

JCL=KEYeCHARS HAS LESS THAN @ CHARACTERS 

JCL=CHARACTERS OVERFLOW KEYeCHAR STORAGE 
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APPENDIX D 


Dx980 DEVICES 


DEVICE TABLE 


KEY DEVNAM ID TM ENBLD ~ EXTREG EXP #-SLOT DEVICE TYPE 


iT DUMMY FF 00 Y 0404 DBUS 0000 0002 

DD DISC1 01 FF Y DMAC 0000 DS330 

DD  DISL2 02 FF N DMAC 0001 DS31 

MT MT 1 1F FE Y DMAC 0002 

LP CP1 29 14 Y 4040 DBUS 0000 0006 

CR CR1 33. +*FE Y 1F1F DBUS 0000 0004 | 
| PR PTR1 3D = 3C Y 1018 DBUS 0000 0008 HS | 
| PP PTP1 47 3C Y 1118 DBUS 0000 0005 HS | 

LP LP1 2A OF Y DMAC 0005 
| LP LP2 2B. OF Y 5050 DBUS 0000 0007 
| cs CS11 65 3C Y 0505 DBUS 0000 0003 
| "Cs CS12 66 3C Y 0505 DBUS 0000 0003 
| DT SC . =a oR Y 0505 DBUS 0000 0003 733 - CM | 

DT CRT1 16 FF y 0606 DBUS 0001 0005 CRT - CM 

DT CRT2 17. FF y 0707 DBUS 0000 0009 CRT - CM 

DT CRT3 18 FF Y 0808 DBUS 0000 OOOA CRT - CM 
| DT CRT4 19 FF Y 0909 DBUS 0000 O000B CRT - CM 

DT KEY1 1A FF y. OBOB DBUS 0000 O000D 733 - CM | 
: MT MT2 20 FE Y DMAC 0002 | 
| MT  MT3 21 FE N DMAC 0002 | 
| DT CRTS 1B FF y OCcoc DBUS 000i 6006 CRT - CM | 
| DT CRT6 1¢ FF Y ODOD DBUS 0001 0007 CRT - CM 

Y 


DT CRT7 1D FF OEOE DBUS 0001 0008 CRT - CM 


| SYSTEM DISC = DISC1 
LOGGING DEVICE = SC 


! SYSTEM CONSOLE = SC | 
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APPENDIX E 


JOB TERMINATION CODES 


JOB TERMINATION CODES 


When a job terminates, the system generates a message to the 


log which gives the termination code for that particular job. 


An example of a normal job termination: 


NO. =30 UID= MIKEB NAME=MIKEB SUBMITTED 


NO. =30 UID= MIKEB NAME=MIKEB STEP=1 TERMINATED AT OFO3 


* TERM CODE=0 TASK TIME= 0 5 21 377 MJAR=4067 MJEA=821 EX=9112 
STRING NO. = 30 TERMINATED 
* A term code other than 0 indicates abnormal job termination. 


See Appendix C for error codes. 
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The purpose of this guide is to aid the users of 
the Austin DSD Computer Center. For information 


not contained in this guide, reference manuals: 


DX980 General Purpose Operating System 
System Operating Guide, no. 943004-9701 


DX980 General Purpose Operating System 
Programmers Guide, no. 943005-9701 


